inherited fmAddEditPeopleDoljnost: TfmAddEditPeopleDoljnost
  Left = 442
  Top = 111
  Width = 492
  Height = 862
  Caption = #1054#1087#1088#1077#1076#1077#1083#1080#1090#1100' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
  Constraints.MinHeight = 836
  Constraints.MinWidth = 492
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel [0]
    Left = 8
    Top = 55
    Width = 23
    Height = 13
    Caption = #1060#1048#1054
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 808
    Width = 484
  end
  inherited Panel1: TPanel
    Width = 484
    inherited BitBtn1: TBitBtn
      Left = 303
    end
    inherited BitBtn2: TBitBtn
      Left = 391
    end
  end
  object lcbdbSotr: TcxDBLookupComboBox [3]
    Left = 6
    Top = 70
    DataBinding.DataField = 'PID'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.DropDownListStyle = lsEditList
    Properties.DropDownRows = 15
    Properties.KeyFieldNames = 'PID'
    Properties.ListColumns = <
      item
        Width = 250
        FieldName = 'PP'
      end
      item
        Width = 70
        FieldName = 'PDATEBIRTH'
      end>
    Properties.ListOptions.ShowHeader = False
    Properties.ListSource = dsSotr
    Properties.MaxLength = 0
    Properties.OnCloseUp = lcbdbSotrPropertiesCloseUp
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.Shadow = False
    Style.IsFontAssigned = True
    TabOrder = 2
    OnMouseDown = lcbdbSotrMouseDown
    Width = 446
  end
  object cxLabel2: TcxLabel [4]
    Left = 8
    Top = 160
    Caption = #1044#1072#1090#1072' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103' '#1085#1072' '#1076#1086#1083#1078#1085#1086#1089#1090#1100
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxDBDateEdit2: TcxDBDateEdit [5]
    Left = 8
    Top = 184
    DataBinding.DataField = 'DOLDATEBEGIN'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.ReadOnly = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 4
    Width = 113
  end
  object cxLabel3: TcxLabel [6]
    Left = 8
    Top = 216
    Caption = #1044#1072#1090#1072' '#1089#1085#1103#1090#1080#1103' '#1089' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxDBDateEdit3: TcxDBDateEdit [7]
    Left = 8
    Top = 240
    DataBinding.DataField = 'DOLDATEEND'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.ReadOnly = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 6
    Width = 113
  end
  object cxDBMemo1: TcxDBMemo [8]
    Left = 7
    Top = 416
    DataBinding.DataField = 'DOLNOTE'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 7
    Height = 89
    Width = 441
  end
  object cxLabel1: TcxLabel [9]
    Left = 8
    Top = 393
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxLabel4: TcxLabel [10]
    Left = 6
    Top = 105
    Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1100' '#1080#1079' '#1096#1090#1072#1090#1085#1086#1075#1086' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1103
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxDBCheckBox1: TcxDBCheckBox [11]
    Left = 208
    Top = 176
    Caption = #1055#1088#1086#1078#1080#1074#1072#1085#1080#1077
    DataBinding.DataField = 'DOLISPROJIVANIE'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 10
    Width = 121
  end
  object cxDBCheckBox2: TcxDBCheckBox [12]
    Left = 208
    Top = 232
    Caption = #1040#1085#1075#1083'. '#1103#1079#1099#1082
    DataBinding.DataField = 'DOLISENGLISH'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.NullStyle = nssUnchecked
    Properties.ValueChecked = 1
    Properties.ValueUnchecked = 0
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 11
    Width = 121
  end
  object ltvDoljn: TdxLookupTreeView [13]
    Left = 7
    Top = 128
    Width = 443
    Height = 27
    CanSelectParents = False
    DropDownRows = 15
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 12
    TabStop = True
    TreeViewColor = clWindow
    TreeViewCursor = crDefault
    TreeViewFont.Charset = DEFAULT_CHARSET
    TreeViewFont.Color = clWindowText
    TreeViewFont.Height = -11
    TreeViewFont.Name = 'MS Sans Serif'
    TreeViewFont.Style = []
    TreeViewIndent = 19
    TreeViewReadOnly = False
    TreeViewShowButtons = True
    TreeViewShowHint = False
    TreeViewShowLines = True
    TreeViewShowRoot = True
    TreeViewSortType = stNone
    OnCloseUp = ltvDoljnCloseUp
    DisplayField = 'SDNAME'
    DividedChar = '.'
    ListSource = dsSD
    KeyField = 'SDID'
    ListField = 'SDNAME'
    Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    ParentField = 'SDPARID'
    RootValue = 28
    TextStyle = tvtsShort
    Alignment = taLeftJustify
  end
  object cxLabel5: TcxLabel [14]
    Left = 8
    Top = 281
    Caption = #1054#1089#1085#1086#1074#1085#1099#1077' '#1086#1073#1103#1079#1072#1085#1085#1086#1089#1090#1080
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object mObyaz: TcxDBMemo [15]
    Left = 5
    Top = 304
    DataBinding.DataField = 'DOLOSNOBYAZ'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 14
    Height = 89
    Width = 441
  end
  object Panel2: TPanel [16]
    Left = 8
    Top = 521
    Width = 442
    Height = 241
    BevelOuter = bvNone
    TabOrder = 15
    object dbgDoljnost: TcxGrid
      Left = 0
      Top = 42
      Width = 441
      Height = 199
      Align = alCustom
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      LookAndFeel.Kind = lfStandard
      object tvDoljnost: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Enabled = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.CustomizeDialog = False
        FilterBox.Visible = fvNever
        DataController.DataSource = dsFood
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '#,###0'
            Kind = skCount
            FieldName = 'PLASTNAME'
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'DFAMOUNT_DOPL'
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'DFAMOUNT'
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'SUM_VYPL'
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'VYPL_BUHG'
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'VYPL_WHITE'
          end>
        DataController.Summary.SummaryGroups = <>
        DataController.Summary.Options = [soNullIgnore]
        OptionsBehavior.CellHints = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 5
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.ExpandButtonsForEmptyDetails = False
        OptionsView.GroupByBox = False
        OptionsView.HeaderEndEllipsis = True
        OptionsView.Indicator = True
        OptionsView.ShowColumnFilterButtons = sfbAlways
        Styles.Content = DMInv.cxData
        Styles.IncSearch = DMInv.cxGreenText
        Styles.Header = DMInv.cxSiniyText
        object tvDoljnostPRIEM_EDY: TcxGridDBColumn
          Caption = #1055#1088#1080#1077#1084' '#1087#1080#1097#1080
          DataBinding.FieldName = 'DMFOODID'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsFoodID
        end
        object tvDoljnostMENUTYPE: TcxGridDBColumn
          Caption = #1058#1080#1087' '#1084#1077#1085#1102' ('#1089' '#1082#1077#1084' '#1077#1089#1090')'
          DataBinding.FieldName = 'DMMENUTYPE'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsMenuType
        end
      end
      object cxGridLevel2: TcxGridLevel
        GridView = tvDoljnost
      end
    end
    object dxBarDockControl1: TdxBarDockControl
      Left = 0
      Top = 20
      Width = 442
      Height = 22
      Align = dalTop
      BarManager = dxBarManager1
    end
    object cxLabel6: TcxLabel
      Left = 0
      Top = 0
      Align = alTop
      Caption = #1056#1072#1089#1087#1088#1077#1076#1077#1083#1077#1085#1080#1077' '#1087#1088#1080#1077#1084#1086#1074' '#1087#1080#1097#1080' '#1087#1086' '#1084#1077#1085#1102
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
    end
  end
  object rgZavtrakSotr: TcxRadioGroup [17]
    Left = 472
    Top = 296
    Caption = #1047#1072#1074#1090#1088#1072#1082' '#1057#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
    Properties.Columns = 4
    Properties.Items = <
      item
        Caption = #1044'/'#1089
        Value = 1
      end
      item
        Caption = #1043#1080#1084#1085#1072#1079#1080#1103
        Value = 2
      end
      item
        Caption = #1064#1082#1086#1083#1072
        Value = 3
      end
      item
        Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        Value = 4
      end>
    TabOrder = 16
    Visible = False
    Height = 33
    Width = 385
  end
  object rgZavtrak1: TcxRadioGroup [18]
    Left = 472
    Top = 332
    Caption = #1047#1072#1074#1090#1088#1072#1082' 1'
    Properties.Columns = 4
    Properties.Items = <
      item
        Caption = #1044'/'#1089
        Value = 1
      end
      item
        Caption = #1043#1080#1084#1085#1072#1079#1080#1103
        Value = 2
      end
      item
        Caption = #1064#1082#1086#1083#1072
        Value = 3
      end
      item
        Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        Value = 4
      end>
    TabOrder = 17
    Visible = False
    Height = 33
    Width = 385
  end
  object cxRadioGroup1: TcxRadioGroup [19]
    Left = 472
    Top = 372
    Caption = #1047#1072#1074#1090#1088#1072#1082' 2'
    Properties.Columns = 4
    Properties.Items = <
      item
        Caption = #1044'/'#1089
        Value = 1
      end
      item
        Caption = #1043#1080#1084#1085#1072#1079#1080#1103
        Value = 2
      end
      item
        Caption = #1064#1082#1086#1083#1072
        Value = 3
      end
      item
        Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082#1080
        Value = 4
      end>
    TabOrder = 20
    Visible = False
    Height = 37
    Width = 385
  end
  object dbgFood: TcxGrid [20]
    Left = 472
    Top = 426
    Width = 433
    Height = 171
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 23
    Visible = False
    LookAndFeel.Kind = lfStandard
    object tvFood: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dsfood2
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skCount
          FieldName = 'PLASTNAME'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'DFAMOUNT_DOPL'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'DFAMOUNT'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'SUM_VYPL'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'VYPL_BUHG'
        end
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'VYPL_WHITE'
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvFoodid_name: TcxGridDBColumn
        DataBinding.FieldName = 'id_name'
        Options.Editing = False
        Width = 102
        IsCaptionAssigned = True
      end
      object tvFoodds: TcxGridDBColumn
        Caption = #1052#1077#1085#1102' '#1044#1057
        DataBinding.FieldName = 'ds'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 54
      end
      object tvFoodgimn: TcxGridDBColumn
        Caption = #1052#1077#1085#1102' '#1043#1080#1084#1085#1072#1079#1080#1080
        DataBinding.FieldName = 'gimn'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 90
      end
      object tvFoodshkola: TcxGridDBColumn
        Caption = #1052#1077#1085#1102' '#1064#1082#1086#1083#1099
        DataBinding.FieldName = 'shkola'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 75
      end
      object tvFoodsotr: TcxGridDBColumn
        Caption = #1052#1077#1085#1102' '#1057#1086#1090#1088#1091#1076#1085#1080#1082#1086#1074
        DataBinding.FieldName = 'sotr'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 108
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = tvFood
    end
  end
  inherited dlgDS: TDataSource
    Left = 248
    Top = 8
  end
  object qSotr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      'P.PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'WHERE P.PISDELETE IS NULL AND PS.SDID <> 1246'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP, NULL AS PDATEBIRTH'
      'FROM PEOPLE P'
      'ORDER BY 2')
    Left = 376
    Top = 96
    object qSotrPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qSotrPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qSotrPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object dsSotr: TDataSource
    DataSet = qSotr
    Left = 344
    Top = 96
  end
  object qCheckDoljnost: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT first 1 DP.DOLDATEBEGIN,COALESCE( dP.DOLDATEEND, CURRENT_' +
        'DATE) AS DOLDATEEND, sd.SDNAME'
      'FROM DOLJNOST_PEOPLE DP'
      'INNER JOIN DOLJNOST D ON D.DOLID = DP.DOLID'
      'INNER JOIN SYS_DIC SD ON sd.SDID = D.SDID'
      'WHERE DP.PID = :pid'
      
        'AND D.DOLISDELETE IS NULL AND SD.SDISDELETE = 0 AND DP.DOLISDELE' +
        'TE IS NULL'
      
        'and COALESCE(dP.DOLDATEEND, CURRENT_DATE) >= :date1 AND dP.DOLDA' +
        'TEBEGIN <= COALESCE(CAST(:date2 AS DATE), CURRENT_DATE)'
      ''
      '')
    Left = 344
    Top = 136
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
    object qCheckDoljnostDOLDATEBEGIN: TDateField
      FieldName = 'DOLDATEBEGIN'
      Origin = '"DOLJNOST"."DOLDATEBEGIN"'
    end
    object qCheckDoljnostDOLDATEEND: TDateField
      FieldName = 'DOLDATEEND'
      Origin = '"DOLJNOST"."DOLDATEEND"'
    end
    object qCheckDoljnostSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT t1.*, IIF(CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESC' +
        'E(D.DOLDATEEND, CURRENT_DATE), d.dolid, NULL) AS dolid,'
      'd.DOLMAXKOL, d.DOLOSNOBYAZ'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = 28'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'LEFT OUTER JOIN DOLJNOST D ON D.SDID = t1.sdid'
      
        'WHERE t1.sdparid <> 13096  AND t1.sdid <> 13096 AND D.DOLISDELET' +
        'E IS NULL AND t1.SDISDELETE = 0'
      'order by 3')
    GeneratorField.Field = 'SDID'
    Left = 304
    Top = 168
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      ProviderFlags = []
    end
    object qSDDOLID: TIntegerField
      FieldName = 'DOLID'
      Origin = '"DOLJNOST"."DOLID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSDDOLMAXKOL: TIntegerField
      FieldName = 'DOLMAXKOL'
      Origin = '"DOLJNOST"."DOLMAXKOL"'
    end
    object qSDDOLOSNOBYAZ: TIBStringField
      FieldName = 'DOLOSNOBYAZ'
      Origin = '"DOLJNOST"."DOLOSNOBYAZ"'
      Size = 2048
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 272
    Top = 168
  end
  object qCheckDoljnostMaxKol: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT COUNT(DP.DPID) AS kol'
      'FROM DOLJNOST_PEOPLE DP'
      'INNER JOIN DOLJNOST D ON D.DOLID = DP.DOLID'
      'INNER JOIN SYS_DIC SD ON sd.SDID = D.SDID'
      'WHERE SD.SDID = :sdid'
      
        'AND D.DOLISDELETE IS NULL AND SD.SDISDELETE = 0 AND DP.DOLISDELE' +
        'TE IS NULL'
      
        'and COALESCE(dP.DOLDATEEND, CURRENT_DATE) >= :date1 AND dP.DOLDA' +
        'TEBEGIN <= COALESCE(CAST(:date2 AS DATE), CURRENT_DATE)'
      ''
      ''
      '')
    Left = 232
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sdid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date2'
        ParamType = ptUnknown
      end>
    object qCheckDoljnostMaxKolKOL: TIntegerField
      FieldName = 'KOL'
      ProviderFlags = []
    end
  end
  object sqlInsertFinance: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      
        'INSERT INTO DF_PEOPLE  (DFID, DPID, DFAMOUNT, DFAMOUNT_DOPL, DFA' +
        'DATEBEGIN, DFADATEEND)'
      
        'SELECT GEN_ID(GEN_DF_PEOPLE_ID,1), :DPID, df.DFAMOUNT, df.DFAMOU' +
        'NT_DOPL, :DFADATEBEGIN, :DFADATEEND'
      'FROM DOLJNOST_FINANCE df'
      'WHERE df.DOLID = :dolid'
      'AND df.DFISDELETE IS NULL'
      
        'AND CAST(:DFADATEBEGIN AS DATE) BETWEEN df.DFADATEBEGIN AND COAL' +
        'ESCE(df.DFADATEEND, CURRENT_DATE+365)')
    Transaction = DMInv.IBTransaction1
    Left = 232
    Top = 208
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = ''
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    Style = bmsUseLookAndFeel
    UseSystemFont = True
    Left = 312
    Top = 539
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      BorderStyle = bbsNone
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 154
      FloatTop = 115
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton4'
        end
        item
          Visible = True
          ItemName = 'dxBarButton6'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object bbAddEditDoljnost: TdxBarButton
      Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1085#1086#1077' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1077
      Category = 0
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1076#1086#1083#1078#1085#1086#1089#1090#1077#1081
      Visible = ivAlways
      ImageIndex = 50
      PaintStyle = psCaptionGlyph
    end
    object beSelectDoljnost: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081')'
      Visible = ivAlways
      ShowCaption = True
      Width = 300
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.IncrementalSearch = False
      Properties.ReadOnly = True
      InternalEditValue = ''
    end
    object cxBarEditItem1: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object cxBarEditItem2: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1053#1072' '#1076#1072#1090#1091':'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object bDate: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1044#1072#1090#1072' '#1085#1072#1093#1086#1078#1076#1077#1085#1080#1103' '#1074' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      ShowCaption = True
      Width = 150
      PropertiesClassName = 'TcxDateEditProperties'
      InternalEditValue = 40921d
    end
    object bbsearch: TdxBarButton
      Caption = #1048#1089#1082#1072#1090#1100
      Category = 0
      Hint = #1048#1089#1082#1072#1090#1100
      Visible = ivAlways
      ImageIndex = 53
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton2: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      Visible = ivAlways
      ImageIndex = 48
    end
    object dxBarButton3: TdxBarButton
      Align = iaRight
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Visible = ivAlways
      ImageIndex = 17
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
      OnClick = dxBarButton4Click
    end
    object tbEditK: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton6: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 10
      OnClick = dxBarButton6Click
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton7: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
    end
    object dxBarButton8: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 10
    end
    object rgDopl: TcxBarEditItem
      Caption = 'New Item'
      Category = 0
      Visible = ivNever
      Width = 100
      PropertiesClassName = 'TcxRadioGroupProperties'
      Properties.Columns = 3
      Properties.DefaultValue = 2
      Properties.Items = <
        item
          Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1103
          Value = 0
        end
        item
          Caption = #1044#1086#1087#1083#1072#1090#1099
          Value = 1
        end
        item
          Caption = #1042#1089#1077
          Value = 2
        end>
      InternalEditValue = 2
    end
    object dxBarSubItem1: TdxBarSubItem
      Caption = 'New SubItem'
      Category = 0
      Visible = ivAlways
      ItemLinks = <>
    end
    object bbAddPDoljnost: TdxBarButton
      Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1095#1077#1083#1086#1074#1077#1082#1072' '#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Category = 0
      Hint = #1055#1088#1080#1074#1103#1079#1082#1072' '#1095#1077#1083#1086#1074#1077#1082#1072' '#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      DropDownEnabled = False
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object bbRefresh: TdxBarButton
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100' '
      Category = 0
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 55
      PaintStyle = psCaptionGlyph
    end
    object bbService: TdxBarButton
      Category = 0
      Visible = ivNever
      ImageIndex = 60
    end
    object bTRAdd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object bTrEdit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bTrDel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
  end
  object qFood: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qFoodAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT dm.*, sd.SDNAME AS menutype, sd1.SDNAME AS priem_edy'
      'FROM DOLJNOST_MENU dm'
      'INNER JOIN SYS_DIC SD ON SD.SDID = dm.DMMENUTYPE'
      'INNER JOIN SYS_DIC SD1 ON SD1.SDID = dm.DMFOODID'
      'WHERE dm.DPID = :dpid')
    UpdateObject = quFood
    GeneratorField.Field = 'DMID'
    GeneratorField.Generator = 'GEN_DOLJNOST_MENU_ID'
    Left = 142
    Top = 592
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dpid'
        ParamType = ptUnknown
      end>
    object qFoodDMID: TIntegerField
      FieldName = 'DMID'
      Origin = '"DOLJNOST_MENU"."DMID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFoodDPID: TIntegerField
      FieldName = 'DPID'
      Origin = '"DOLJNOST_MENU"."DPID"'
    end
    object qFoodDMFOODID: TIntegerField
      FieldName = 'DMFOODID'
      Origin = '"DOLJNOST_MENU"."DMFOODID"'
    end
    object qFoodDMMENUTYPE: TIntegerField
      FieldName = 'DMMENUTYPE'
      Origin = '"DOLJNOST_MENU"."DMMENUTYPE"'
    end
    object qFoodDMUSERENTER: TIBStringField
      FieldName = 'DMUSERENTER'
      Origin = '"DOLJNOST_MENU"."DMUSERENTER"'
      Size = 40
    end
    object qFoodDMTIMEENTER: TDateTimeField
      FieldName = 'DMTIMEENTER'
      Origin = '"DOLJNOST_MENU"."DMTIMEENTER"'
    end
    object qFoodDMUSEREDIT: TIBStringField
      FieldName = 'DMUSEREDIT'
      Origin = '"DOLJNOST_MENU"."DMUSEREDIT"'
      Size = 40
    end
    object qFoodDMTIMEEDIT: TDateTimeField
      FieldName = 'DMTIMEEDIT'
      Origin = '"DOLJNOST_MENU"."DMTIMEEDIT"'
    end
    object qFoodMENUTYPE: TIBStringField
      FieldName = 'MENUTYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qFoodPRIEM_EDY: TIBStringField
      FieldName = 'PRIEM_EDY'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quFood: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DMID,'
      '  DPID,'
      '  DMFOODID,'
      '  DMMENUTYPE,'
      '  DMUSERENTER,'
      '  DMTIMEENTER,'
      '  DMUSEREDIT,'
      '  DMTIMEEDIT'
      'from DOLJNOST_MENU '
      'where'
      '  DMID = :DMID')
    ModifySQL.Strings = (
      'update DOLJNOST_MENU'
      'set'
      '  DMFOODID = :DMFOODID,'
      '  DMID = :DMID,'
      '  DMMENUTYPE = :DMMENUTYPE,'
      '  DPID = :DPID'
      'where'
      '  DMID = :OLD_DMID')
    InsertSQL.Strings = (
      'insert into DOLJNOST_MENU'
      '  (DMFOODID, DMID, DMMENUTYPE, DPID)'
      'values'
      '  (:DMFOODID, :DMID, :DMMENUTYPE, :DPID)')
    DeleteSQL.Strings = (
      'delete from DOLJNOST_MENU'
      'where'
      '  DMID = :OLD_DMID')
    Left = 176
    Top = 592
  end
  object dsFood: TDataSource
    DataSet = qFood
    Left = 104
    Top = 592
  end
  object dsMenuType: TDataSource
    DataSet = qMenuType
    Left = 120
    Top = 656
  end
  object dsFoodID: TDataSource
    DataSet = qFoodID
    Left = 120
    Top = 696
  end
  object qMenuType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = 42'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'order by 3')
    Left = 168
    Top = 656
    object qMenuTypeSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qMenuTypeSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qMenuTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qMenuTypeSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      ProviderFlags = []
    end
  end
  object qFoodID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = 41'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'order by 3')
    Left = 168
    Top = 696
    object qFoodIDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qFoodIDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qFoodIDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qFoodIDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      ProviderFlags = []
    end
  end
  object mdFood: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F06000000140000000100080069645F6E616D650004
      000000030003006964000400000003000300647300040000000300050067696D
      6E00040000000300070073686B6F6C61000400000003000500736F747200010F
      000000C7E0E2F2F0E0EA2028D1EEF2F02E290101000000000000000000000000
      00000000000000000000000109000000C7E0E2F2F0E0EA203101020000000000
      0000000000000000000000000000000000000109000000C7E0E2F2F0E0EA2032
      010300000000000000000000000000000000000000000000000104000000CEE1
      E5E4010400000000000000000000000000000000000000000000000107000000
      CFEEEBE4EDE8EA01050000000000000000000000000000000000000000000000
      0106000000D3E6E8ED2031010600000000000000000000000000000000000000
      000000000106000000D3E6E8ED20320107000000000000000000000000000000
      0000000000000000}
    SortOptions = []
    Left = 920
    Top = 344
    object mdFoodid_name: TStringField
      FieldName = 'id_name'
    end
    object mdFoodid: TIntegerField
      FieldName = 'id'
    end
    object mdFoodds: TIntegerField
      FieldName = 'ds'
    end
    object mdFoodgimn: TIntegerField
      FieldName = 'gimn'
    end
    object mdFoodshkola: TIntegerField
      FieldName = 'shkola'
    end
    object mdFoodsotr: TIntegerField
      FieldName = 'sotr'
    end
  end
  object mdFood2: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F080000000400000003000B007A617674725F736F74
      720004000000030007007A61767472310004000000030007007A617674723200
      04000000030005006F626564000400000003000800706F6C646E696B00040000
      0003000600756A696E31000400000003000600756A696E320004000000030008
      0069645F6D656E75000000000000000000000000000000000000000000000000
      0000000000000000000000000101000000000000000000000000000000000000
      0000000000000000000000000000000000000000010200000000000000000000
      0000000000000000000000000000000000000000000000000000000001030000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000104000000}
    SortOptions = []
    Left = 920
    Top = 384
    object mdFood2zavtr_sotr: TIntegerField
      FieldName = 'zavtr_sotr'
    end
    object mdFood2zavtr1: TIntegerField
      FieldName = 'zavtr1'
    end
    object mdFood2zavtr2: TIntegerField
      FieldName = 'zavtr2'
    end
    object mdFood2obed: TIntegerField
      FieldName = 'obed'
    end
    object mdFood2poldnik: TIntegerField
      FieldName = 'poldnik'
    end
    object mdFood2ujin1: TIntegerField
      FieldName = 'ujin1'
    end
    object mdFood2ujin2: TIntegerField
      FieldName = 'ujin2'
    end
    object mdFood2id: TIntegerField
      FieldName = 'id_menu'
    end
  end
  object dsfood2: TDataSource
    DataSet = mdFood
    Left = 888
    Top = 344
  end
end
